home *** CD-ROM | disk | FTP | other *** search
Wrap
<%@LANGUAGE="VBSCRIPT"%> <!-- #include file="connex.asp" --> <% set rsConfig = Server.CreateObject("ADODB.Recordset") rsConfig.ActiveConnection = connex rsConfig.Source = "SELECT * FROM CONFIG" rsConfig.CursorType = 0 rsConfig.CursorLocation = 2 rsConfig.LockType = 3 rsConfig.Open() rsConfig_numRows = 0 %> <html> <head> <title>About</title> <script> var doUpdatesX = (screen.width/2)-100; var doUpdatesY = (screen.height/2)-80; var pos = "left="+doUpdatesX+",top="+doUpdatesY; function doUpdates() { doUpdatesWindow = window.open("check_updates.asp","Updates","width=200,height=160,"+pos); } </script> </head> <body topmargin="0" background="images/dark_blue.jpg"> <p align="center"><img border="0" src="images/gg_css_dark.jpg"></p> <font color="#C0C0C0"> <p align="center"><font size="2" color="#C0C0C0"> ⌐ </font> <font face="Arial" size="2" color="#C0C0C0"> <a title="Other copyright info" href="other_copyright.asp"> <font color="#C0C0C0">Copyright</font></a>: <a title="E-Mail The Developer" href="mailto:matt@graphic-group.com?subject=Concerning G-G CSS"> <font color="#C0C0C0">Matthew DiGirolamo</font></a> 2002 <font color="#C0C0C0"><a target="_blank" tit∞e="Go to the Website" href="http://www.graphic-group.com/"><font color="#C0C0C0">Graphic-Group.com</font></a></a></font><a target="_blank" title="Go to the Website" href="http://www.graphic-group.com/"><font color="#C0C0C0"> Inc</font></a></font></p> <p align="center"> <a title="Have questions, comments or need to report a bug?" href="mailto:admin@graphic-group.com?subject=Concerning G-G CSS"> <font color="#C0C0C0">Questions, comments or to report a bug e-mail us.</font></a></p> </font> <% F_NAME=rsConfig.Fields.Item("F_NAME").Value L_NAME=rsConfig.Fields.Item("L_NAME").Value %> <p align="center"><b><font face="Arial" size="2" color="#FF0000"><a href="javascript:doUpdates()"> <font color="#FF0000">Check For Updates</font></a></font></b></p> <p align="center"><font face="Arial" color="#C0C0C0"><font size="1">REGISTERED TO:</font><font size="2"> </font><%=F_NAME%><%=" "%><%=L_NAME%></font></p> <% If F_NAME = "Demo" Then Response.Write "<p align='center'><b><font face='Arial' size='2'><a target='_self' href='http://www.regnow.com/softsell/nph-softsell.cgi?item=7158-1'><font color='#C0C0C0'>Buy it Now! $15.00</font></a></font></b></p>" Response.Write "<p align='center'><b><a href='login.asp'><font face='Arial' size='2' color='#C0C0C0'>UNLOCK</font></a></b></p>" Response.Write "<p align='center'><iframe name='I1' src='http://site40926.dellhost.com/ggads.asp' width='460' height='60' scrolling='no' align='middle' border='0' frameborder='0'>Your browser does not support inline frames or is currently configured not to display inline frames.</iframe></p>" End If USRKEY=rsConfig.Fields.Item("USR_KEY").Value FOURKEY=Left(USRKEY, 4) TODAY=Date EXPIRATION=rsConfig.Fields.Item("DATE_EXPED").Value REGDATE=rsConfig.Fields.Item("DATE_REGED").Value DIFFERENCE=DateDiff("d", TODAY, EXPIRATION) If DIFFERENCE > 0 Then Response.Write "<p align='center'><font color='#C0C0C0' face='Arial' size='2'><a title='Priority e-mail support' href='mailto:matt@graphic-group.com?subject=G-G CSS USER "&F_NAME&" "&L_NAME&" REG:"®DATE&" EXP:"&DIFFERENCE&" "&FOURKEY&"'><font color='#C0C0C0'>Priority e-mail support</a> expires in</font><b><font color='#FF0000' face='Arial' size='2'> "&DIFFERENCE&" </font></b><font color='#C0C0C0' face='Arial' size='2'>days.</font></p>" Else End If %> <p align="center"> </p> </b> </body> </html> <% rsConfig.Close() %>